Unit iadeuretim;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, wwdbedit, Buttons, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  Db, ADODB, siComp;

Type
  TFiadeuretim = Class(TForm)
    Label9: TLabel;
    Label8: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    wwDBGrid1: TwwDBGrid;
    BitBtn1: TBitBtn;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit6: TwwDBEdit;
    wwDBEdit7: TwwDBEdit;
    uretim: TADOQuery;
    DataSource1: TDataSource;
    Procedure BitBtn1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  Fiadeuretim: TFiadeuretim;

Implementation

Uses data, ana1;

{$R *.DFM}

Procedure TFiadeuretim.BitBtn1Click(Sender: TObject);
Begin
  Close;
End;

End.